my @Data = unpack "CCs", pack "l", $long;

$pt -> {version} =  $Data[0]
$pt -> {reversion} =  $Data[1]
$pt -> {build} =  $Data[2]