print "@$array_ref\n";

# oder
use Data::Dumper;
print Dumper $arrayref;