#!/usr/bin/perl

my @tableau = (1, 4, 9, 16);
print (join(" ", @tableau)."\n");
&ajoute(\@tableau);
print (join(" ", @tableau)."\n");

sub ajoute
  {
    my $parametre = $_[0];
    push (@$parametre, 25);
    $$parametre[5] = 36;
  }
