$URL_ROOT="http://xxx.yyy.com/perl";
%url = ("$URL_ROOT/timesheet.ppl" => 4);
$sec_level= $url{$url};