#!perl -w
use strict; #Always!

my $username=user;
my $sessionid=1234;

subone($comm);
#in subroutines i could call 
subone 
{
print "$comm->$username";
}