in reply to to print l columnwise and subtraction

You already have the first row in $temp[0] So 
my @first=split(/ /,$temp[0]);
my $minimum_printable=$first[2] * 0.7;

[download]
print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

In Section Seekers of Perl Wisdom