#!/usr/bin/perl -w
use strict;


my $anon_array = [qw(one two three)];

# pass it to mysub
mysub({ list => $anon_array });

#now pass it to mysub again, but reversed...
# i can't figure out how to take an anon array and
# pass it reversed on the spot... 
mysub({ list => \(reverse @{$anon_array}) });


sub mysub {
 my $args = shift;
  for ( @{$args->{list}} ){
   print $_."\n";
  }
 return;
}