#!/usr/bin/perl
use strict;
use warnings;
use Class::Struct;

my @Artikel=(
  [ "tst",  10, '2,5'  ],
  [ "foo",   5, '1,2'  ],
  [ "bar", 100, '5'    ],
  [ "bam", 365, '0.01' ],
  [ "fom",   1, '0.96' ],
);

struct artikel_info => {
  anzahl => '$',
  name   => '$',
  preis  => '$',
};

my @myartikel;
for my $artikel (@Artikel)
{
  my $obj=artikel_info->new();
  $obj->name($artikel->[0]);
  $obj->anzahl($artikel->[1]);
  $obj->preis($artikel->[2]);
  push(@myartikel,$obj);
}

my $File_no=0;
for my $i (0..$#myartikel)
{
  print_Artikel($myartikel[$i],"",$File_no,$i);
}

sub print_Artikel {
  my $artikel = shift;
  my $schalter = shift;
  my $file_no = shift;
  my $i = shift;

  print "<!-- SCHALTER: $schalter -->\n";
  print "<!-- FILE:     $file_no -->\n";
  print "<!-- COUNTER:  $i -->\n";
  print "<!-- NAME:     ".$artikel->name." -->\n";
  print "<!-- PREIS:    ".$artikel->preis." -->\n";
  print "<!-- ANZAHL:   ".$artikel->anzahl." -->\n";
  print "<!--geht-->\n\n";
}