Instead of using Dumper as you have:

  print Dumper %sk;
  print Dumper @xk;
[download]

You might consider using it like so:

  print Dumper \%sk;
  print Dumper \@xk;
[download]

You should find the output a bit more sensible.