use strict; use Test::More qw( no_plan ); sub nobull { my ($val1,$val2) = @_; return $val1 * 10000 + $val2; } sub dragonchild { join'', map sprintf("%04d", $_), @_ } my @tests = ( [ '3214', '0578', '32140578' ], [ '3214', '0000', '32140000' ], [ '2340', '0230', '23400230' ], [ '3214', '6578', '32146578' ], [ '3210', '6578', '32106578' ], [ '2130', '1000', '21301000' ], [ '0004', '6789', '00046789' ], ); foreach my $test (@tests) { is( nobull( $test->[0], $test->[1] ), $test->[2] ); is( dragonchild( $test->[0], $test->[1] ), $test->[2] ); }