jhumphreys:

Well, it works, but I'm not really a fan of the use of the <=> operator, though it's certainly clever.</opinion>

Also, you're brute forcing things by doing the repetitive work yourself instead of having the computer do it. For example, you could do it like:

#!/usr/bin/perl             
#dectobin3.pl               
use warnings;
use strict;
   
print "Enter a decimal number, less than 256, to be converted to a bin
+ary number: ";
   
chomp(my $dec = <STDIN>);
my @bits = map { ($dec & 1<<$_)  <=> 0 } reverse 0 .. 7;
print "Bits=",join("", @bits), "\n";
[download]

That way, you can use it for larger numbers without the tedious copy, paste, edit cycle. Generally, whenever you start typing something like $bit_1, $bit_2, etc., it's time to consider using an array.

...roboticus

When your only tool is a hammer, all problems look like your thumb.