use strict;
use warnings;
my $bin_val;
my $dec_val;
my @temp_reference_value = ("11111111111111111111111111111111", "1111111111111111111111111111111");

for(my $i=0; $i<=$#temp_reference_value; $i++ )
{
	$dec_val = oct("$temp_reference_value[$i]");
	$bin_val = sprintf('0x%x', $dec_val) if($dec_val); 
	print "Bin value $temp_reference_value[$i] and Hex value is $bin_val \n"; 
}