11 is(reverse("abc"), "cba");
14 is(reverse(), "raboof");
17 my @a = ("foo", "bar");
32 is($a[0] . $a[1] . $a[3], '124');
36 is("@a", "9 8 7 6 5");
41 is($a[0] . $a[2] . $a[3] . $a[4], '5789');
45 ok(!exists $a[2] && !exists $a[3]);
46 is($a[0] . $a[1] . $a[4], '985');
49 @empty = reverse @empty;
56 tie my @a, 'Tie::StdArray';
65 is($a[0] . $a[1] . $a[3], '124');
69 is("@a", "9 8 7 6 5");
74 is($a[0] . $a[2] . $a[3] . $a[4], '5789');
78 ok(!exists $a[2] && !exists $a[3]);
79 is($a[0] . $a[1] . $a[4], '985');
81 tie my @empty, "Tie::StdArray";
82 @empty = reverse @empty;
83 is(scalar(@empty), 0);
89 my $a = "\x{263A}\x{263A}x\x{263A}y\x{263A}";
90 my $b = scalar reverse($a);
91 my $c = scalar reverse($b);
97 sub blurp { my $_ = shift; reverse }
99 is(blurp("foo"), "oof");
100 is(sub { my $_ = shift; reverse }->("bar"), "rab");
103 is(blurp("paz"), "zap");