use constant foo => 'bar';

sub crack {
    print &foo, $/;
}

crack(1, 2, 3);