...
my @bits;

$bits[$_] = ($dec & 2 ** $_) <=> 0 for 0 .. 7;
printf "The entered decimal number in binary is : %s\n", join '', reverse @bits;