#!/usr/bin/perl

use strict;
use warnings 'all';

sub foo {
    my %hash = (shift => 1);
    print keys %hash, "\n";
}

foo "bar";

__END__