my @PhiNotPi = ("Test1", "Test2", "Test3");
my @Doorknob = ("Test1", "Test2", "Test3");
my @Sp3000 = ("Test1", "Test2", "Test3");
my @grc = ("Test1", "Test2", "Test3");
my @FryAmTheEggman = ("Test1", "Test2", "Test3");
my @MartinBüttner = ("Test1", "Test2", "Test3");
my @Optimizer = ("Test1", "Test2", "Test3");
my $top_left = $PhiNotPi[0];
my $bottom_right = $PhiNotPi[2];
print "$_\n" for @PhiNotPi;