use strict;
use warnings;
use diagnostics;
use feature "say";
use feature "switch";
use v5.22.1;


say "What is your name?";
my $channel1 =<STDIN>;
say "How many hours did you work?";
my $channel2 =<STDIN>;
say "What is your pay?";
my $channel3 = <STDIN>;

chomp for ($channel1,$channel2,$channel3);
say $channel1;
say "Check Amount =  ",
     (40*$channel3)+(($channel2-40)*$channel3*2);