for my $x (0 .. @s - 1) { my $l = " "x15 . ":" . " "x15; if (@xlo && $xlo[0] <= $x) { shift @xlo; substr $l, 0, 10, "v"x10; } elsif (@xhi && $xhi[0] <= $x) { shift @xhi; substr $l, 20, 10, "v"x10; } if (@xmi and $xmi[0] <= $x) { shift @xmi; substr $l, 0, 7, "minimum"; } elsif (@xma and $xma[0] <= $x) { shift @xma; substr $l, 23, 7, "maximum"; } substr $l, 15+int(10*$s[$x]), 1, "*"; print $l, "\n"; }