my $filename = shift @_;

  # or even
  my ($filename) = @_;

  # multiple arguments are best caught this way:
  my ($first,$second,$third) = @_;

  # but some folks prefer
  my $first  = shift;
  my $second = shift;
  my $third  = shift;