sub changeformat {
    my ($header,$data) = @_;
    my @header = @$header;
    my @data = @$data;