push @test_2_data, test_2( $test ) for 1 .. 4;

for(@test_2_data){
    $_ = unpack('H*', $_);
}

print $_ for(@test_2_data);