my $spaces = $hour * 8;
my $padding = ' ' x $spaces;