Select Code to Download

my @la;
foreach my $s (sort keys(%sections)){
  push @la,a({-href => "/$sections{$s}"}, "$s HOME");
}
print join(" |",@la);

my @la=map { a( {-href => "/$sections{$_}"}, "$_ HOME" ) } sort keys %
+sections;

$\ = "\n";