Data update

Task/Stem-and-leaf-plot/Perl/stem-and-leaf-plot-4.pl

@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+use strict; # https://rosettacode.org/wiki/Stem-and-leaf_plot
+use warnings;
+
+my @plot;
+/(.*)(.)/, $plot[$1 || 0]  .= " $2" for sort {$a <=> $b} map split, <DATA>;
+printf "%3d |%s\n", $_, $plot[$_] // '' for 0 .. $#plot;
+
+__DATA__
+12  127 28  42  39  113 42  18  44  118 44  37  113 124 37  48  127 36
+29  31  125 139 131 115 105 132 104 123 35  113 122 42  117 119 58  109
+23  105 63  27  44  105 99  41  128 121 116 125 32  61  37  127 29  113
+121 58  114 126 53  114 96  25  109 7   31  141 46  13  27  43  117 116
+27  7   68  40  31  115 124 42  128 52  71  118 117 38  27  106 33  117
+116 111 40  119 47  105 57  122 109 124 115 43  120 43  27  27  18  28
+48  125 107 114 34  133 45  120 30  127 31  116 146