my $a = 5.0;
for (my $i = 5; $i >= 0; $i--) {
  $a += 5.0;
}
my $b = int($a);
print "Enter a string: ";
my $user_string = <STDIN>;
chomp($user_string);
print($a . "\n");
print($b . "\n");
print($user_string . "\n");