diff --git a/lib/Subtitle/SSA/Event.pm b/lib/Subtitle/SSA/Event.pm
index 9999ff5..d64eff0 100644
--- a/lib/Subtitle/SSA/Event.pm
+++ b/lib/Subtitle/SSA/Event.pm
@@ -46,7 +46,7 @@ sub new {
   $self->{_format} = \@FIELDS_SSA
     if $self->{_vers} eq 'ssa';
 
-  my @fields = $self->{_fields};
+  my @fields = @{ $self->{_format} };
   $self->{$_} = $FIELDS{$_}->{value}
     foreach @fields;