use strict;
my $text='abcdefgijkl';
test($text);

sub test
{
    print "\nokey!";
}