Search Results

One way to construct this:
%hash = map { $a = '1G' if /768/ .. /1536/; $a = '2G' if /1537/ .. /2560/; $_ => $a }
768 .. 2560;

Could I suggest a different approach?

perl -le'

$val = shift;

@ranges = (
[768, 1536, "1G"],
[1537, 2560, "2G"]
);

for (@ranges) {
print $_->[2] and...