use strict;

sub store_value {
    my @range;
    push @range, (ref $_[0] eq "ARRAY") ?
        @{$_[0]} : @_;
    print "range is ",join(",",@range),"\n";
}

store_value(1);
store_value(1..3);
store_value([1..3]);