@an_array=(1,2,3,4,5,6,7);
&routine(\@an_array);

sub routine
{
  $ref=$_[0]; print @$ref; # That works
# print (@($_[0]));        # This would produce a compilation error!
  print @$_[0];            # And this doesn´t print anything!
}