sub some_sub {
    my $item = shift;
    my $string;
    # rest of subroutine
}