use strict; use warnings; use Statistics::Lite qw(range); my @data = (5, 10, 3, -20, 9); my $range = range @data; print $range, "\n";