...
my $var3 = unpack 'f', pack 'V', $var1 << 16 | $var2;