use JSON::XS; use strict; my $abfahrenString = '[["S3","Dresden, Plauen","1"],["S1","Dresden, Flughafen","2"],["RE01","Meissen","10"],["ICE","Hamburg, Neugraben","15"]]'; my @keys = qw(ZugNr Richtung Minuten); my @abfahrten = sort { $a->[2] <=> $b->[2] } @{decode_json $abfahrenString}; print "Content-type: text/html\n\n"; print '', "\n"; print "Test-Ausgabe\n"; print "\n"; print ""; print "" for @keys; print "\n"; for my $zug (@abfahrten) { print ""; print "" for @$zug; print "\n"; } print "
$_
$_
\n";