Statement Perl

#!/usr/bin/perl
use warnings;
use strict;
while () {
    chomp;
    last unless $_;
    my $sdrawkcab = reverse $_;
    print "$sdrawkcab\n";
}