Sub days() returns a list of names of days, just try: print "@newtest",$/; or

for my $day (@newtest) {
    print $day, $/;
}
[download]

You are indexing with strings which numify to zero, so you get $newtest["Wednesday"] as $newtest[0].

After Compline,
Zaxo