#!/usr/bin/perl

use strict;
use warnings;

sub test {
    my @arr = (1) x 0xFF000000;
    return @arr;
}

test()