use Sub::Sealed;

use strict;
use warnings;

 my $q = 9;
our @z = (4,6);

sub something : Sealed {
    my $x = 1;
    print "@z * $q \n";
};

something();

$q = 3;
@z = (5,7);

something();

print "@z * $q\n";