#!/usr/bin/perl
use strict;
use warnings;

print "Hoeveel?\n";
my $hoeveel = <STDIN>;
chomp $hoeveel;
print "You typed: $hoeveel\n";

my $y = -931.96483;
my $z = 1000;
my @a = qw{Nederland Duitsland};
my $m = 0;

for (my $i=1; $i <= $hoeveel; $i++) {
   $y = $y + 155;
   $z = $z +1;
   $m = $i -1;
   print <<EOT;
 <g
     transform="translate(-124.85653,$y)"
     id="layer$z">
    <text
       xml:space="preserve"
       style="font-style:normal;font-variant:normal;font-weight:normal
+;font-stretch:normal;font-size:126.0375061px;line-height:125%;font-fa
+mily:Arial;-inkscape-font-specification:'Arial, Normal';text-align:st
+art;letter-spacing:0px;word-spacing:0px;writing-mode:lr-tb;text-ancho
+r:start;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stro
+ke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"
       x="-45.714272"
       y="235.21936"
       id="text3336"><tspan
         id="tspan3338"
         x="-45.714272"
         y="235.21936">$a[$m]</tspan></text>
  </g>

EOT
};