sub print_page_x {
    my $page_number = $_[0];
    my $repeat = $_[1];
    my $q_number = 1;   
    open(INPUT, "$page_number.txt") or exit_nicely("Cannot open the questions file");
    print header;
    print start_html(-title => "Page $page_number"); #could have a better title
#    my $header = <INPUT>;
#    print h3("$header");
#    my $instructions = <INPUT>;
#    print p("$instructions");
    if ($repeat == 1)
    {
	print p('<b>Please ensure you answer all the questions</b>');
    }
    my $tmp = <INPUT>;
#    my @options = split(/,/, $tmp);
    
    my @numbers;
    for(my $i=1; $i <= $#options+1; $i++)
    {
	$numbers[$i-1] = $i;
    }

#    unshift @options, '';
 
    print start_table();
    print startform( -method => 'post',
		     -action => 'foo.cgi');
#    print start_Tr();
#    foreach (@options)
#    {
#	print th($_);
#    }
#    print end_Tr;
    while (<INPUT>)
    {
	print start_Tr();
	print td("$_");
 	foreach (@numbers)
 	{
 	    print start_td({-align => 'center'},"$_");
	    print radio_group( -name    => "$page_number.$q_number",
			       -value   => $_,
		               -default => '-',
		               -labels  => {$_ => ''});
 	    print end_td;
 	}
	print end_Tr;
	$q_number++;
    }
    print end_table;
    my $next_page = $page_number + 1;
    print "<input type='hidden' name='qs' value='$q_number-1'";
    print "<input type='hidden' name='page_number' value='$next_page'  />";
    #this is somewhat of a hack
    print submit( -name=>'submit',
		  -value=>'Submit');
    print end_form;
    print end_html;
}


##</code><code>##


Public class Poly
{
    private static String variableName;
    private static long [] coeffs;
    private static long denominator;

    public Poly(String a, long [] b, long c) {
        variableName = a;
        coeffs = b;
        denominator = c;
    }
}


##</code><code>##

public static Poly makeInteger(int i) {
    long [] l = {i};
    return new Poly("x", l, 1);
}


##</code><code>##

long [] one = {1,2, 3};
Poly p = new Poly("x", one, 1);
Poly.print(p);
Poly integer = makeInteger(2);
Poly.print(p);
Poly.print(integer);


##</code><code>##

(1*x^0 + 2*x^2 + 3*x^2)/1
(2*x^0)/1
(2*x^0)/1


##</code><code>##

Input:

my @a1 = [
	  { 'name' => 'Al',
	    'score' => 17 },
	  { 'name' => 'Bert',
	    'score' => 20 },
	  { 'name' => 'Cindy',
	    'score' => 10 }
]

my @a2 = [
	  { 'name' => 'Al',
	    'score' => 5 },
	  { 'name' => 'Bert',
	    'score' => 7 }
	  { 'name' => 'Dave',
	    'score' => 12 }
]

Output:

my @total = [
	     { 'name' => 'Al',
	       'score' => 22 },
	     { 'name' => 'Bert',
	       'score' => 27 },
	     { 'name' => 'Cindy',
	       'score' => 10 },
	     { 'name' => 'Dave',
	       'score' => 12 }
]

##</code><code>##

#! /usr/bin/perl

my %hash = (1 => 2,
	    2 => 4,
	    3 => 6);

my $sum = 0;
foreach my $n(keys %hash) { 
    $sum += $n*$hash{$n};
}
print ($sum);