push @test_2_data, unpack('H*', (test_2( $test ))) for 1 .. 4;
print $_ for(@test_2_data);