#!C:/Perl/bin/perl.exe -w
#
#
#
#
#

sub fonction1(){
    my ($ref) = @_;
    my $condition = 1;
    if($condition){
     push (@$ref,$condition);
    }
}
 
#main
 
&fonction1(\@tab);

print @tab;

