@name1 = (6, 18, 21, 28, 36, 44, 52, 67, 78, 89);
@name2 = (1, 15, 22, 31, 45, 7, 19, 21, 36, 41);
@name3 = (8, 91, 78, 88, 87, 80, 96, 95, 99, 99);
@xaxis = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);

##</code><code>##

$name1 = [6, 18, 21, 28, 36, 44, 52, 67, 78, 89];
$name2 = [1, 15, 22, 31, 45, 7, 19, 21, 36, 41];
$name3 = [8, 91, 78, 88, 87, 80, 96, 95, 99, 99];
$xaxis = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10];

##</code><code>##

@data = (
    $xaxis,
    $name1,
    $name2,
    $name3
    );

##</code><code>##

@data = (
    \@xaxis,
    \@name1,
    \@name2,
    \@name3
    );