my %states;
# fill %states with data
my $serialized = join('/', map {"$_ $states{$_}"} keys %states);
print {$filehandle} $serialized;
[download]