# The package demo !
package Demo;

use subs qw( Sub1 Sub2 );

sub Sub1
{
  my %Test= ( 'Test01' => 1,
              'Test02' => 1,
              'Test99' => 1 );
  return %Test;
}

sub Sub2
{
  my @Test = qw (2 3 4 5 6 7 8 9 10);
  return @Test;
}
1;