my $session = q{1678f192860fb3850d27244c76b704b1&action=select&salesman=015&salesman=020&salesman=030&salesman=035&salesman=045&salesman=050&salesman=065&salesman=075&salesman=090&salesman=095&salesman=100&salesman=105&salesman=110&salesman=120&salesman=900&salesman=911&salesman=998&year=2003&go=GO};
my %hash;

push @{$hash{session}}, $session =~ /salesman=(\d+)/g;