#!/usr/bin/env perl -w
use strict;
sub my_rev{
    my (@rev, @chars, $rev);
    if (wantarray){
	while (@_){
	    push @rev, pop @_;
	}
	return @rev;
    } else {
	@chars = map {split //} @_;
	while (@chars){
	    push @rev, pop @chars;
	}
	$rev = join '', @rev;
	return $rev;
    }
}
my (@list, $rev, @rev, $rstring);

@list = (5..15);
$rev = my_rev @list;
@rev = my_rev @list;

$rstring = my_rev "Hello World";

print "\$rev: $rev\n";
print "\@rev: @rev\n";
print "\$rstring: $rstring\n";