If you are sending the variable through to the sub

then this will work

sub queryresult {
    my ($s_off_no) = @_;
    ## Do stuff
}
[download]

Other than that I would recommend reading my first post and fixing some of those other things I mentioned (at the very least you should use placeholders).

grep

Unix - where you can throw the manual on the keyboard and get a command