$VAR1 = { '' => undef, 'FILE_SIZE' => 1, 'DIRECTION' => 1, 'FILE_ID' => '', 'LOCAL_ID' => 0, 'START_SIGNAL' => 17759, 'IP' => '64.245.58.81', 'CONNECT' => 1, 'RAW' => 'E_A  64.245.58.81 Únew proxy test', 'MESSAGE_SIZE' => 65, 'MESSAGE_TYPE' => 10, 'FILENAME' => 'new proxy test', 'PORT' => 41178 }; $as = sub { 1; 2; 3; 4; } ;$as->($VAR1);