#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
local $Data::Dumper::Purity;
$Data::Dumper::Purity = 1;
local $Data::Dumper::Useqq;
$Data::Dumper::Useqq = 1;
local $Data::Dumper::Sortkeys;
$Data::Dumper::Sortkeys = sub {
	my ($hash) = @_;
	return [(sort {lc $a cmp lc $b} keys %$hash)];
};
use 5.010;
use Fcntl;


sysopen(my $fh,'test.txt',O_RDWR|O_CREAT) or die $!;
say "scalar:   ".scalar($fh);
say "readline: ".readline(0);
foreach my $in (split(/,/,readline(scalar($fh)))) {
    say "lesen";
}