sub poo {
print "in sub poo\n";
print Dumper( \@_ );
# rest of your code here
}