#!/usr/bin/perl --
use strict;
use warnings;

ff([ 1..9 ]);

sub ff {
    our @ar;
    local *ar = shift;
    say int @ar
}